home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zi.d64 / proc.wblock < prev    next >
Text File  |  2007-03-01  |  302b  |  13 lines
  1. 1270 ╨╥╧├ WBLOCK(T#,S#,DAT$) ├╠╧╙┼─
  2. 1280   ╔═╨╧╥╘ PA$,ERROR
  3. 1290   ╘╥┴╨ 
  4. 1300     ╧╨┼╬ ╞╔╠┼ 1,"U8:#/S6/D+",╫╥╔╘┼
  5. 1310     ╨┴╙╙ "B-P:6,0",8
  6. 1320     ╨╥╔╬╘ ╞╔╠┼ 1: DAT$,
  7. 1330     ╨┴╙╙ "U2:6,0,"+PA$(T#,S#),8
  8. 1340     ├╠╧╙┼ ╞╔╠┼ 1
  9. 1350   ╚┴╬─╠┼╥ 
  10. 1360     ERROR(4,╘╥╒┼)
  11. 1370   ┼╬─╘╥┴╨ 
  12. 1380 ┼╬─╨╥╧├ WBLOCK
  13.